home *** CD-ROM | disk | FTP | other *** search
/ Amoszine 8 / Amoszine 8 (Disk 2 of 3).adf / Powerbobs.lha / powerbobsv1.0 / examples / Pinc_With_Range.asc < prev    next >
Text File  |  1992-09-02  |  714b  |  38 lines
  1. 'This example shows the use of the Pinc command using a range. 
  2. 'Read the docfile for (un)setting a range when using other array arithmetics.
  3. 'Beware...if more than 300 is entered, be sure to have a cup of tea.   
  4. '
  5. 'Two array's containing 1001 elements (0 -> 1000) are first Dimensioned. 
  6. '
  7. 'Enter 0 (zero) to stop the speed test.
  8. '
  9. Dim X(1000)
  10. Do 
  11. Input "Give range, max 1000 : ";_MAX
  12. '
  13. If _MAX=0 Then End 
  14. '
  15. T=Timer
  16. For I=1 To 1000
  17.    For K=0 To _MAX
  18.       Add X(K),1,1 To 20
  19.    Next 
  20. Next 
  21. '
  22. 'Display the ellapsed time in Vbl's
  23. '
  24. Print Timer-T
  25. '
  26. ADRESS_X=Varptr(X(0))
  27. Set Pinc Range 1 To 20
  28. T=Timer
  29. For I=1 To 1000
  30.    Pinc ADRESS_X,1 To _MAX
  31. Next 
  32. '
  33. 'Display the ellapsed time in Vbl's
  34. '
  35. Print Timer-T
  36. '
  37. Loop 
  38.